home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / UNIVERSE / SHARED.DIR / 01040_Script_sbcx < prev    next >
Text File  |  1995-11-21  |  2KB  |  64 lines
  1. -- standard button contents
  2. --property myRollover, myPressed, myChannel, myScript, ancestor
  3. --
  4. --on birth me, sp, ro, pr, sc
  5. --  set ancestor to birth(script "sb",sp,sc)
  6. --  set myRollover to (the number of cast ro)
  7. --  set myPressed to (the number of cast pr)
  8. --  set myScript to sc
  9. --  set myChannel to integer(sp)
  10. --  return me
  11. --end
  12.  
  13. --change appearance
  14.  
  15. on sbcrollo myChannel,myRollover
  16.   --put ">>>my rollover cast 9 " & myRollover
  17.   
  18.   puppetSprite myChannel,TRUE
  19.   set the castNum of sprite myChannel to myRollover
  20.   --puppetSprite myChannel, false
  21.   updateStage
  22. end
  23.  
  24.  
  25. on sbcdoScript theLine
  26.   --myChannel, myScript
  27.   --put ">>> do script: " & myScript
  28.   
  29.   cursor 4  
  30.   --
  31.   --
  32.   -- get the frames to preload
  33.   --
  34.   set labName = item 8 of theLine
  35.   set startFrame = label(labName)
  36.   --go to startFrame - 1
  37.   set endFrame = label(labName & "M")
  38.   pplLoad(startFrame, endFrame)
  39.   --pplload(getAt(gPreloadList, myChannel))
  40.   cursor -1
  41.   set myScript = item 7 of theLine && quote & labName & quote
  42.   do myScript
  43. end 
  44.  
  45. on sbcpress theLine
  46.   set myChannel = integer(item 4 of theLine)
  47.   set myPressed = integer(item 5 of theLine)
  48.   
  49.   puppetSprite myChannel,TRUE
  50.   set the castNum of sprite myChannel to myPressed
  51.   updateStage
  52.   puppetSprite myChannel, false
  53. end
  54.  
  55. on sbcnorm theLine
  56.   set myChannel = integer(item 4 of theLine)
  57.   puppetSprite myChannel, 0
  58.   updateStage
  59.   --go to the frame  
  60. end
  61.  
  62. on sbcpreloadRolloxxxNOTUSED myRollover
  63.   preloadCast myRollover
  64. end